EnigmA Amiga Run 1997 April/EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso/EARCD/biz/dbase/tm_dbms22.lha/dbmsv2.2/arexx/DB_ShowdataBase.rexx

OS/2 REXX Batch file | 1996-10-18 | 1KB | 2 lines

/* Optimized with RexxOpt 1.8 */
OPTIONS RESULTS;MODE 'Normal';FIRST RECORD;tab= D2C(9);lan='Sys:Prefs/DBMS_PLT.prefs';pref='Sys:Prefs/DBMS.prefs';k=0;s=OPEN('Prefs',pref,'r');DO FOREVER;w=READLN('Prefs');IF LEFT(w,1)=';' THEN LEAVE;END;DO FOREVER;w=READLN('Prefs');IF w=''|EOF('Prefs') THEN LEAVE;IF LEFT(w,8)='ENGLI = '&RIGHT(w,1)='1' THEN lan='Sys:Prefs/DBMS_ENT.prefs';END;s=CLOSE('Prefs');s=OPEN('lan',lan,'r');DO UNTIL EOF('lan');k=k+1;t.k=READLN('lan');END;s=CLOSE('lan');OKAY2 t.21;IF result=0 THEN EXIT;i=OPEN('Baza','RAM:Baza','w');i=WRITELN('Baza','Nazwa'||tab||'Opis'||tab||'Objëtoôê'||tab||'Wymagania'||tab||'HD'||tab||'FD'||tab||'Typ'||tab||'Rodzaj');DO UNTIL RC>0;GETFIELD 'Age';ef=result;if ~(ef='*') THEN;DO;GETFIELD 'Nazwa';name=result;GETFIELD 'Opis';desc=result;GETFIELD 'Objëtoôê';obj=result;GETFIELD 'Wymagania';wymag=result;GETFIELD 'HD';hd=result;GETFIELD 'FD';fd=result;GETFIELD 'Typ';typ=result;GETFIELD 'Rodzaj';rodzaj=result;i=WRITELN('Baza',name||tab||desc||tab||obj||tab||wymag||tab||hd||tab||fd||tab||typ||tab||rodzaj);END;NEXTRECORD;END;i=CLOSE('Baza')